home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / vol6n16.arc / KBX.BAS < prev    next >
BASIC Source File  |  1987-08-29  |  12KB  |  172 lines
  1. 100 REM -- BASIC PROGRAM TO CREATE kbx.COM
  2. 110 OPEN "kbx.COM" AS #1 LEN = 1
  3. 120 FIELD #1,1 AS A$
  4. 130 CHECKSUM = 0
  5. 140 FOR I = 1 TO  151 
  6. 150    LINESUM = 0
  7. 155    PRINT  ".";
  8. 160    FOR J = 1 TO 8
  9. 170       READ BYTE
  10. 180       CHECKSUM = CHECKSUM + BYTE
  11. 190       LINESUM = LINESUM + BYTE
  12. 200       IF (BYTE < 256) THEN LSET A$ = CHR$(BYTE)
  13. 210       PUT #1
  14. 220    NEXT J
  15. 230    READ LINECHECK
  16. 240    IF LINECHECK <> LINESUM THEN PRINT "Error in Line";280 + 10 * I
  17. 250 NEXT I
  18. 260 CLOSE
  19. 270 IF CHECKSUM = 111391 THEN PRINT "Successful Completion!" : END
  20. 280 PRINT "COM file is not valid!" : END
  21. 290 DATA    233,    73,     4,    67,   111,   112,   121,   114,   835
  22. 300 DATA    105,   103,   104,   116,    32,    49,    57,    56,   622
  23. 310 DATA     55,    32,    90,   105,   102,   102,    45,    68,   599
  24. 320 DATA     97,   118,   105,   115,    32,    80,   117,    98,   762
  25. 330 DATA    108,   105,   115,   104,   105,   110,   103,    32,   782
  26. 340 DATA     67,   111,    46,    26,    44,    40,    45,    41,   420
  27. 350 DATA     42,    46,    30,    76,     5,     0,     0,     0,   199
  28. 360 DATA      2,     0,   184,    47,    27,     7,     6,     0,   273
  29. 370 DATA      0,     0,     0,     0,     0,     0,    73,    66,   139
  30. 380 DATA     77,     0,     0,     0,     0,     1,     0,    15,    93
  31. 390 DATA      3,    12,     0,     2,     0,    15,     5,    12,    49
  32. 400 DATA      0,     2,     0,    15,     7,    12,     0,     2,    38
  33. 410 DATA      0,    15,     9,    10,     0,    17,     0,    55,   106
  34. 420 DATA      5,     4,     0,     0,     0,    55,     7,     4,    75
  35. 430 DATA      0,     0,     0,    55,     9,     3,     0,     0,    67
  36. 440 DATA     49,    50,    51,    52,    53,    54,    55,    56,   420
  37. 450 DATA     57,    48,    45,    61,     0,     0,    81,    87,   379
  38. 460 DATA     69,    82,    84,    89,    85,    73,    79,    80,   641
  39. 470 DATA     91,    93,     0,     0,    65,    83,    68,    70,   470
  40. 480 DATA     71,    72,    74,    75,    76,    59,    39,    96,   562
  41. 490 DATA      0,     0,    90,    88,    67,    86,    66,    78,   475
  42. 500 DATA     77,    44,    46,    47,     0,     0,     0,     0,   214
  43. 510 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  44. 520 DATA      0,     0,     0,     0,     0,    55,    56,    57,   168
  45. 530 DATA     45,    52,    53,    54,    43,    49,    50,    51,   397
  46. 540 DATA      0,     0,     0,   127,   128,   129,   130,   131,   645
  47. 550 DATA    132,   133,   134,   135,   136,   137,   138,     0,   945
  48. 560 DATA      0,   139,   140,   141,   142,   143,   144,   145,   994
  49. 570 DATA    146,   147,   148,   149,   150,     0,     0,   151,   891
  50. 580 DATA    152,   153,   154,   155,   156,   157,   158,   159,  1244
  51. 590 DATA    160,   161,   162,     0,     0,   163,   164,   165,   975
  52. 600 DATA    166,   167,   168,     0,     0,     0,     0,     0,   501
  53. 610 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  54. 620 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  55. 630 DATA    201,   203,   187,   205,   204,   206,   185,   186,  1577
  56. 640 DATA    200,   202,   188,     0,     0,     0,   169,   170,   929
  57. 650 DATA    171,   172,   173,   174,   175,   176,   177,   178,  1396
  58. 660 DATA    219,   220,     0,     0,   221,   222,   223,   224,  1329
  59. 670 DATA    225,   226,   227,   228,   229,   230,   231,   232,  1828
  60. 680 DATA      0,     0,   233,   234,   235,   236,   237,   238,  1413
  61. 690 DATA    239,   240,   241,   242,   243,   244,     0,     0,  1449
  62. 700 DATA    245,   246,   247,   248,   249,   250,   251,   252,  1988
  63. 710 DATA    253,   254,     0,     0,     0,     0,     0,     0,   507
  64. 720 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  65. 730 DATA      0,     0,     0,   218,   194,   191,   196,   195,   994
  66. 740 DATA    197,   180,   179,   192,   193,   217,     0,     0,  1158
  67. 750 DATA    251,    80,   228,    96,    60,    69,   116,    33,   933
  68. 760 DATA     60,   197,   116,    69,    60,    70,   116,    77,   765
  69. 770 DATA     60,   198,   116,   113,    60,    57,   116,   124,   844
  70. 780 DATA     46,   128,    62,    53,     1,     0,   116,     3,   409
  71. 790 DATA    233,   142,     0,    88,    46,   255,    46,    73,   883
  72. 800 DATA      1,   232,   190,     0,   168,    12,   117,   243,   963
  73. 810 DATA     80,   232,   169,     0,    88,   168,     3,   117,   857
  74. 820 DATA      9,    46,   128,    14,    53,     1,     2,   235,   488
  75. 830 DATA     77,   144,    30,   184,    64,     0,   142,   216,   857
  76. 840 DATA    128,    54,    23,     0,    32,    31,   235,    62,   565
  77. 850 DATA    144,   232,   137,     0,    46,   128,    38,    53,   778
  78. 860 DATA      1,   253,   235,    50,   144,   232,   138,     0,  1053
  79. 870 DATA    168,    12,   117,   191,    80,   232,   117,     0,   917
  80. 880 DATA     88,   168,     3,   117,     9,    46,   128,    14,   573
  81. 890 DATA     53,     1,     1,   235,    25,   144,    30,   184,   673
  82. 900 DATA     64,     0,   142,   216,   128,    54,    23,     0,   627
  83. 910 DATA     16,    31,   235,    10,   144,   232,    85,     0,   753
  84. 920 DATA     46,   128,    38,    53,     1,   254,   176,    32,   728
  85. 930 DATA    230,    32,    88,   207,   232,    83,     0,   168,  1040
  86. 940 DATA      8,   116,   136,   232,    63,     0,   176,    32,   763
  87. 950 DATA    230,    32,    46,   128,    62,    55,     1,     0,   554
  88. 960 DATA    117,     5,    83,   232,   114,     0,    91,    88,   730
  89. 970 DATA    207,    80,   232,    40,     0,    88,   168,   128,   943
  90. 980 DATA    117,    29,    83,   187,    29,     2,    46,   128,   621
  91. 990 DATA     62,    53,     1,     1,   117,     3,   187,   202,   626
  92. 1000 DATA     1,   138,   224,   254,   200,    46,   215,    10,  1088
  93. 1010 DATA   192,   116,     3,   232,    31,     0,    91,   176,   841
  94. 1020 DATA    32,   230,    32,    88,   207,   228,    97,   138,  1052
  95. 1030 DATA   224,    12,   128,   230,    97,   138,   196,   230,  1255
  96. 1040 DATA    97,   195,    30,   184,    64,     0,   142,   216,   928
  97. 1050 DATA   160,    23,     0,    31,   195,    82,    30,   187,   708
  98. 1060 DATA    64,     0,   142,   219,   139,    30,    28,     0,   622
  99. 1070 DATA   139,   211,   131,   194,     2,    59,    22,   130,   888
  100. 1080 DATA     0,   117,     4,   139,    22,   128,     0,    59,   469
  101. 1090 DATA    22,    26,     0,   116,     8,   137,     7,   139,   455
  102. 1100 DATA   218,   137,    30,    28,     0,    31,    90,   195,   729
  103. 1110 DATA   180,    15,   205,    16,    60,     2,   116,     9,   603
  104. 1120 DATA    60,     3,   116,     5,    60,     7,   116,     1,   368
  105. 1130 DATA   195,    46,   198,     6,    55,     1,     1,    81,   583
  106. 1140 DATA    82,    86,    87,    30,     6,    14,    31,    14,   350
  107. 1150 DATA     7,   136,    62,    65,     1,   180,     3,   205,   659
  108. 1160 DATA    16,   137,    14,    61,     1,   232,   250,     0,   711
  109. 1170 DATA   163,    63,     1,   180,     1,   181,    32,   205,   826
  110. 1180 DATA    16,   128,    62,    56,     1,     1,   117,     3,   384
  111. 1190 DATA   232,   202,     0,   232,   122,     0,   232,   252,  1272
  112. 1200 DATA     0,   128,    62,    56,     1,     1,   117,     3,   368
  113. 1210 DATA   232,   201,     0,   141,    54,   119,     1,   232,   980
  114. 1220 DATA    48,     1,   180,     1,   205,    22,   116,     8,   581
  115. 1230 DATA   180,     0,   205,    22,    60,    27,   116,    33,   643
  116. 1240 DATA   160,    53,     1,    60,     2,   118,     2,   176,   572
  117. 1250 DATA     2,    58,     6,    54,     1,   116,   227,   162,   626
  118. 1260 DATA    54,     1,   179,    83,   246,   227,   139,   240,  1169
  119. 1270 DATA   129,   198,   119,     1,   232,     3,     1,   235,   918
  120. 1280 DATA   209,   128,    62,    56,     1,     1,   117,     3,   577
  121. 1290 DATA   232,   122,     0,   232,    91,     0,   128,    62,   867
  122. 1300 DATA    56,     1,     1,   117,     3,   232,   124,     0,   534
  123. 1310 DATA   180,     2,   138,    62,    65,     1,   139,    22,   609
  124. 1320 DATA    63,     1,   205,    16,   180,     1,   139,    14,   619
  125. 1330 DATA    61,     1,   205,    16,   198,     6,    55,     1,   543
  126. 1340 DATA     0,     7,    31,    95,    94,    90,    89,   195,   601
  127. 1350 DATA   190,   182,     0,   138,    14,    65,     1,    50,   640
  128. 1360 DATA   237,   227,     6,   129,   198,     0,    16,   226,  1039
  129. 1370 DATA   250,   137,    54,    66,     1,    30,   142,    30,   710
  130. 1380 DATA    57,     1,    46,   139,    62,    51,     1,   185,   542
  131. 1390 DATA    11,     0,    81,   185,    58,     0,   252,   243,   830
  132. 1400 DATA   165,    89,   131,   198,    44,   226,   243,    31,  1127
  133. 1410 DATA   195,   142,     6,    57,     1,   139,    62,    66,   668
  134. 1420 DATA     1,   139,    54,    51,     1,   185,    11,     0,   442
  135. 1430 DATA    81,   185,    58,     0,   243,   165,    89,   131,   952
  136. 1440 DATA   199,    44,   226,   244,   195,   186,   218,     3,  1315
  137. 1450 DATA   236,   168,     8,   116,   251,   131,   234,     2,  1146
  138. 1460 DATA   176,    37,   238,   195,   180,    15,   205,    16,  1062
  139. 1470 DATA   141,    30,    44,     1,   215,   186,   216,     3,   836
  140. 1480 DATA   238,   195,   139,    22,    68,     1,   176,    14,   853
  141. 1490 DATA   238,    66,   236,   138,   224,    74,   176,    15,  1167
  142. 1500 DATA   238,    66,   236,    37,   255,     7,   179,    80,  1098
  143. 1510 DATA   246,   243,   134,   224,   195,   142,     6,    57,  1247
  144. 1520 DATA     1,   139,    62,    66,     1,   176,   218,   138,   801
  145. 1530 DATA    38,    59,     1,   171,   185,    56,     0,   176,   686
  146. 1540 DATA   196,   243,   171,   176,   191,   171,   131,   199,  1478
  147. 1550 DATA    44,   185,     9,     0,    81,   176,   179,    80,   754
  148. 1560 DATA   171,   185,    56,     0,   176,    32,   138,    38,   796
  149. 1570 DATA    60,     1,   243,   171,    88,   171,   131,   199,  1064
  150. 1580 DATA    44,    89,   226,   232,   176,   192,   171,   185,  1315
  151. 1590 DATA    56,     0,   176,   196,   243,   171,   176,   217,  1235
  152. 1600 DATA   171,   195,   138,    62,    65,     1,   141,    62,   835
  153. 1610 DATA    77,     1,   185,     7,     0,    81,     3,    53,   407
  154. 1620 DATA   139,    85,     2,   139,    77,     4,   232,     7,   685
  155. 1630 DATA     0,   131,   199,     6,    89,   226,   238,   195,  1084
  156. 1640 DATA    81,   180,     2,   205,    16,   172,   180,    10,   846
  157. 1650 DATA   185,     1,     0,   205,    16,   128,   194,     3,   732
  158. 1660 DATA    89,   226,   237,   195,   184,     0,   192,   142,  1265
  159. 1670 DATA   192,   191,    30,     0,   141,    54,    70,     1,   679
  160. 1680 DATA   185,     3,     0,   252,   243,   166,   116,    38,  1003
  161. 1690 DATA   254,    14,    56,     1,   180,    15,   205,    16,   741
  162. 1700 DATA    60,     7,   117,    26,   254,    14,    56,     1,   535
  163. 1710 DATA   129,    46,    57,     1,     0,     8,   198,     6,   445
  164. 1720 DATA    59,     1,   112,   198,     6,    60,     1,     7,   444
  165. 1730 DATA   199,     6,    61,     1,    13,    12,   139,    14,   445
  166. 1740 DATA    61,     1,   180,     1,   205,    16,   184,    64,   712
  167. 1750 DATA     0,   142,   192,   191,    99,     0,    38,   139,   801
  168. 1760 DATA    21,   137,    22,    68,     1,   184,     9,    53,   495
  169. 1770 DATA   205,    33,   137,    30,    73,     1,   140,     6,   625
  170. 1780 DATA    75,     1,   180,    37,   141,    22,   112,     2,   570
  171. 1790 DATA   205,    33,   186,    72,    10,   205,    39,     0,   750
  172.